
#1. data cleaning####

trial = readRDS('data/trial_clean.rds')

#### (c) pre-post Macri presidency verdict date (de facto)####

r1 <- lm_robust(noconvict ~ under_macri + presiding_judge_gender + presiding_judge_tenure, data =  trial, 
                fixed_effects = year, 
                clusters = trial_ID)

r2 <- lm_robust(life ~ under_macri + presiding_judge_gender + presiding_judge_tenure, data =  trial, 
                fixed_effects = year, 
                clusters = trial_ID)

#### (d) monthly Kirchner approval rating (de facto)####

r3 <- lm_robust(noconvict ~ under_kirchner*Approval_Smoothed + presiding_judge_gender + presiding_judge_tenure, data =  trial, 
                fixed_effects = year, 
                clusters = trial_ID)

r4 <- lm_robust(life ~ under_kirchner*Approval_Smoothed + presiding_judge_gender + presiding_judge_tenure, data =  trial, 
                fixed_effects = year, 
                clusters = trial_ID)

texreg::screenreg(list(r1, r2, r3, r4), include.ci = F, 
                  'tab-out/tabSI9.tex')

